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CHANGE TO THE MAILLING PROGRAM ON PAGE 22 

IF THIS IS THE FIRST RECORD FOR THIS FILE VOU MUST TAKE OUT 
THE GOSUB TO 176 IN LINE « 32 

LINE 176 IS NOT RIGHT - VOU NEED TO MAKE IT READ 
** 176 LR=L0F<i>*3-5:IF LR<=8 THEN LR«1 ** 
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1 REH TRS-88 USERS GROUP 

2 REH FAYETTEVILLE, NC 28384 

3 OS PRINT "TO STOP TYPE 'END' ELSE 'ENTER' 

4 IF S*»"END" THEN RUN "MENU" 

5 as : PRINT. GOTO 29 

6 REM ** ZIPCODE SORTING ROUTINE ** 

7 PRINT 

8 5=8:G=1 

9 »»N-1 

18 X*="*t#t#* as PRINT CHR*22> 

11 FOR 1=8 TO Nl 

12 IF ft(IX«fl(I*l) THEN 18 

13 Z-A(I> 

14 PR INTf536, USING X*; Z 

15 R<I)«A<I*1) 

16 A(I*1>=Z 

17 S«l 

18 NEXT I 

19 OS 

28 IF S«l THEN 8 



*; : INPUT S* 



21 REM ** TEST ft PRINT ROUTINE ** 

22 FOR 1=8 TO N-2 

23 PRINT A<I*2);G, 

24 FOR J«8 TO N 

25 IF <A<I+2>=VAL<F*<J)>>AND<L<J»8> THEN 57 ELSE NEXT 

26 MM: NEXT I 

27 GOTO 31 

28 REM •* READ DATA ft DIM ROUTINE ** 

29 CLEAR 25888:LR-6 

38 DIM A*<325>.B*<325>,C*<325),D*<325>,E*<325>,F*<325>,A<325>,L<325> 

31 READ S*:PRINTt282,"NAHE OF FILE TO BE SORTED "; S* 

32 IF Sf*"END- THEN STOP 

33 0PEN-RM.S* 

34 GOTO 65 

35 REH ** SORT SET-UP ROUTINE ** 

36 N=LR-i : OS :PRINTt282, "NUMBER OF FILES TO BE SORTED "; N 

37 IF LR<28 THEN aOSE:OOTO 31 

38 LR«8 

39 FOR I«8 TO N 
48 LR=LR+1 

41 OOSUB 53:PR»INT(<LR-1)/3)*1 

42 GET i. PR 

43 L(I)=LR 

44 A*<I)=OA* 

45 B*(I)=NR* 

46 C*<I>*flD* 

47 D*<I)»CT* 

48 E*<I>*ST* 

49 F*<I)=ZP*:A<I)«VAL<F*<I» 
58 NEXT 

51 CLOSE :GOTO 6 

52 REM ** SUB-RECORD SUBROUTINE ** 

53 SR-LR-3*INT«LR-l)/3)-l 

54 FIELD 1,SR*85 AS G*, 7 AS DA*, 25 AS NA*, 38 AS AD* , 15 AS CT*, 3 AS ST*, 5 AS ZP* 

55 RETURN 

56 REH ** LINE PRINT ROUTINE ** 

57 IF LEFT*<A*<J>, 4>="TEHP" THEN 63: REM ** TEST FOR NO PRINT *» 

58 LPRINT A*<J);CHR*<91)>L<J);£*<J);CHR*<93> 

59 LPRINT B*<J) 
68 LPRINT C*(J) 

61 LPRINT D*<J>;E*<J);F«<J> 

62 LPRINT CHR*<138);CHR*<138> 

63 L(J)«8:G0T0 26 

64 REH *• END OF FILE SUBROUTINE ** 

65 LR-L0F<1)*3-5:IF LR<*8 THEN LR*1 

66 LM.R+1 PRINT8468, "LOGICAL RECORD * "MR 

67 GOSUB 53 PR*INT<<LR-iV3>+l 

68 GET 1, PR 

69 ZP=VAL<ZP*) 

78 IF ZP»8 THEN 36 

71 PRINTt593,DA*;CHR*<91);LRiST*;CHR*(93> 

72 PRINTt657, NA* 

73 PRINT8721, AD* 

74 PRINT8785, CT*> ST*; ZP* 

75 GOTO 66 

76 REH ** DATA ROUTINE ** 

77 DATA "AK", "AL", "AR", "AZ", "CA", "CO", "CT", "DC". "D£", "FL" 

78 DATA "GA", "HI", "IA", "ID", "IL", "IN", "K5'-, "KV", "LA", "HA" 

79 DATA "HD", "ME", "HI", "HN", "HO", "HS", "HT", "NC", "ND", "NE" 
88 DATA "NH", "NJ", "NH", "NV", "NV", "OH", "OK", "OR", "PA", "RI" 

81 DATA "SC", "SD", "TN", "TX", "UT", "VA", "VT", "HA", "HI", "HV" 

82 DATA "HY", "AS", "PR", "END" 
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i REM TRS-88 USERS GROUP 

2 REM 7554 SOUTHGflTE RD. 

3 REM FflVETTEVILLE, NC 

4 REM 28394 

5 REM (919) 867-5822 

6 REM FEB 1979 - ROBERT G. LLOYD 

7 REM MAILING LIST PROGRAM 

8 REM WRITE - REM) - CHANGE - SEARCH 

9 as 

18 PRINT CHR*(23) 

11 PRINT "HAKE SURE THAT DISK t" 

12 PRINT " 2861 IS IN DRIVER t 1" 

13 PRINT " 2882 IS IN DRIVER • 2" 

14 PRINT 

15 INPUT 'PRESS ENTER ";0* 

16 X*8:N=8 

17 CLEAR 1888 

18 CIS 

19 CLOSE 

28 PRINT0328. "ENTER FILE NAME OR STATE (TYPE 'END' TO STOP "; 

21 LINEINPUT S* 

22 IF S*»"END" THEN END 

23 PRINT PRINT " TYPE 1 TO HRITE" 

24 PRINT " 2 TO READ" 

25 PRINT " 3 TO CHANGE A FILE" 

26 INPUT • 4 TO SEARCH A FILE ">N 

27 0PEN"RM,S* 

28 CLS 

29 ON N GOSUB 32, 73, 85, 135 
38 GOTO 16 

31 REM ** WRITE ROUTINE ** 

32 GOSUB 176 

33 LR*LR+1 

34 GOSUB 184 

35 PRINT0468, "NEXT RECORD NUMBER ";CHR*(94);LfcS*; " ";CHR*(93) 

36 PRINT08, "DATE - TYPE 'END' TO STOP " TAB(38>; 

37 LINEINPUT A* 

38 J1*LEN(A*) 

39 LSET DA*=A* 

40 IF LEN(A*)>7 THEN 35 

41 IF A*="END" THEN RETURN 

42 PRINT "NAME" TAB(38); 

43 LINEINPUT A* 

44 J2=LEN(A*) 

45 LSET NA*«A* 

46 IF LEN(A*)>25 THEN 42 

47 PRINT "ADD" TAB<38); 

48 LINEINPUT A* 

49 J3-LEN<A$) 
58 LSET AD* =A* 

51 IF LEN(A*)>38 THEN 47 

52 PRINT "CITY" TAB(38). 

53 LINEINPUT A* 

54 J4=LEN(A*) 

55 LSET CT*«A* 

56 IF LEN(A*)>15 THEN 52 

57 PRINT "STATE" TAB(30),S* 

58 J5=LEN<S*) 

59 LSET ST*«S* 

60 IF LEN<S$)>2 57 

61 PRINT "ZIP" TAB(30)> 

62 LINEINPUT A* 

63 J6*LEN(A*) 

64 LSET ZP*=A* 

65 IF LEN(A*)>5 THEN 61 



66 INPUT "IS THIS INFORMATION CORRECT <Y/N> ";X* 

67 IF X*«"N" GOSUB 188 GOTO 35 

68 IF X*»"Y" GOSUB 188: GOTO 78 

69 GOTO 66 

70 PUT 1,PR 

71 GOTO 32 

72 REM ** READ ROUTINE ** 

73 GOSUB 289 

74 PRINT 

75 INPUT " INPUT THE • OF LABLES YOU NEED ";L 

76 GOSUB 184 

77 ZP»VAL<ZP*) 

78 IF ZP=8 THEN RETURN 

79 GOSUB 196 

80 FOR 1*1 TO L 

81 GOSUB 202 

82 NEXT I 

83 GOTO 16 

84 REM ** CHANGE ROUTINE ** 

85 CLS 

86 GOSUB 209 

87 CLS 

88 GOSUB 119 

89 X*i 

98 PRINT819, "THERE ARE 6 LINES OF DATA" 

91 PRINT, "DATE", "NAME", "ADD" 

92 PRINT, "CITY", "STATE", "ZIP" 

93 PRINT "WHICH WOULD YOU LIKE TO CHANGE "; 

94 LINEINPUT CHJ 

95 IF CH**"DATE" THEN 102 

96 IF CH*="NAHE" THEN 103 

97 IF CH*«"ADO" THEN 104 

98 IF CH*»"CITY" THEN 105 

99 IF CH*= "STATE" THEN 106 

100 IF CH*="ZIP" THEN 107 

101 GOTO 94 

182 LINEINPUT "NEW DATE ", Alt GOTO 188 

103 LINEINPUT "NEW NAME ";A2*:G0T0 108 

104 LINEINPUT "NEW ADD *; A3*: GOTO 108 

105 LINEINPUT "NEW CITY ".A4«:G0T0 108 

186 LINEINPUT "NEW STATE ",A5* GOTO 108 

187 LINEINPUT "NEW ZIP ";A6* 

188 LSET DA*=A1* 

189 LSET NA**A2* 
118 LSET AD*=A3* 

111 LSET CT*=A4* 

112 LSET ST**A5* 

113 LSET ZP*=A6* 

114 INPUT "ANY MORE CHANGES TO THIS FILE (Y/N) ";VN$ 

115 as 

116 IF YN$="Y" GOSUB 196: GOTO 98 

117 PUT 1, PR 

118 REM ** END OF FILE CHECK SUBROUTINE ** 

119 GOSUB 184 
128 ZP=VAL(ZP$) 

121 IF ZP-8 THEN RETURN 

122 GOSUB 196 

123 PRINT 

124 Ai*=OA* 

125 A2*=NA* 

126 A3*=AD* 

127 A4*=CT* 

128 A5*=ST* 

129 A6*=ZP* 

138 IF X=l THEN 132 



131 RETURN 

132 INPUT "PRESS ENTER WHEN READY "; X* 

133 GOTO 16 

134 REM ** SEARCH ROUTINE ** 

135 A»8:B»8:C*0:D*0:E»0:H»8:LR=0:N«3 

136 OS 

137 LR-LR+1 

138 GOSUB 184 

139 ZP«VAL(ZP*> 

140 IF ZP*0 THEN aOSE:RETURN 

141 GOTO 152 

142 OS 

143 GOSUB 196 

144 PRINT "DO YOU NEED A HARD COPY (Y/N) " 

145 PRINT " TO MAKE A CHANGE <C> " 

146 INPUT " TO STOP (END) ";U$ 

147 IF U$»"Y" GOSUB 202 

148 IF U$«"C" THEN OS: GOTO 87 

149 IF U»»"END" THEN 16 

158 as 

151 GOTO 137 

152 IF A»i THEN 161 

153 PRINT, "DATE", "NAME" 

154 PRINT. "CITY", "ZIP" PRINT 

155 LINEINPUT "WHAT WOULD YOU LIKE TO FIND ";H» 

156 PRINT0226, "INPUT THE ', 

157 IF H»«"DATE" THEN A*i:H*l:GOTO 163 

150 IF H*»"NAME" THEN A»1:H*2:G0T0 165 

159 IF H$*"CITV THEN A»l H=3:G0T0 167 
168 IF H$«"ZIP" THEN A«l:HM:GOTO 169 

161 ON H GOTO 164, 166, 160, 170 

162 GOTO 152 

163 LINEINPUT "DATE ";DT$ 

164 IF INSTR(DA$,DTf) THEN 142 ELSE 137 

165 LINEINPUT "NAME ";NT» 

166 IF INSTR(NA$, NT$) THEN 142 ELSE 137 

167 LINEINPUT "CITY ">CA$ 

168 IF INSTR(CT$,CA$) THEN 142 ELSE 137 

169 LINEINPUT "ZIP ";ZT* 

178 IF ZP*»ZT$ THEN 142 ELSE 137 

171 REM ** SUB-RECORD SUBROUTINE ** 

172 SR«LR-3*INT((LR-l)/3)-l 

173 FiaD 1,SR*85 AS D$, 7 AS DA*, 25 AS NA$, 38 AS AM, 

174 RETURN 15 AS CT$, 3 AS ST*, 5 AS ZP* 

175 REM ** END OF FILE GET SUBROUTINE ** 

176 LR=L0F(l)*3-5 

177 LR-LR+1 

178 GOSUB 184 

179 ZP«VAL(ZP*) 

188 IF ZP*8 THEN LR=LR-1 : RETURN 

181 GOSUB 1% 

182 GOTO 177 

183 REM ** PHYSICAL RECORD SUBROUTINE ** 

184 GOSUB 172 

185 PR=INT((LR-1)/3)*1 

186 GET 1,PR:RETURN 

187 REM ** CLEAR INPUT SUBROUTINE ** 

188 PRINT038,STRING*(Jl,32)i 

189 PRINT094,STRING*(J2,32)i 
198 PRINTtl58,STRING*(J3,32); 



191 PRINT0222,STRING*(J4,32) 

192 PRINT0286»STRING*(J5,32) 



(CONTINUED ON PAGE 38) 
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SAVE 18K, 15X OR MORE ON ALL COMPUTERS, PERIPHERALS, * SOFTWARE. 

NO TAXES ON OUT-OF-STATE SHIPMENTS. 

WARRANTIES HILL BE HONORED BY YOUR LOCAL 'RADIO SHACK' (g) STORE. 

VERBATIM DISKETTES $3 58 EACH. 

HENRY'S ENGINEERING CO. 

P. 0. BOX 629 

PRINCE FREDERICK, MD 29678 

(Ml) 855-6777 (281) 535-3142 



9806 Amber Trail 
Sun City, AZ 85351 
January 4, 1978 



Dear Mr. Lloyd 1 



Inclosed is a cassette of my current J OTTO program. 
It simulates a paper-and-pencil wordgame copyrighted 1956. 
It consisted of a set of instructions and two pads of 
forms. It was played by two individuals or two teams. 
I inclose a blank form and set of instructions. 

JOTTO was discussed in Calculators and Computers, 
March 1978 which included a BASIC PLUS program. Page 183 
of BASIC Computer Games has a program for WORD which is 
similar but identifies the matching letters and their 
positions in the word as in HANGMAN. 

My program conforms to the original JOTTO. It can 
be played using words, or if desired, 5-letter groups. 
The program randomly selects a vocabulary word using the 
INKEY$ function to stop a continuous circulation of data 
words when the ENTER key is pressed. I learned tnis from 
Steve MacGregor, 3701 W. Wethersfield Rd., Phoenix, AZ 
85029. He used it in an unpublished Level II, HANGMAN 
game which has outstanding graphics, very fast. 

The cassette has multiple entries of both a 16k and 
4K version. They are identical except that the 4K has 
less remarks and less vocabulary. You might wish to 
publish the 4k version and the user could use his own 
added vocabulary if he has l6K. 

The program has a special feature — an optional 

standard opening of 6 words so chosen that the results 

of these 6 trials tell you the status of A.T.ME ,ND,BL, 

FI.GH.OS. From there you need to guess the word. 

If the user prefers to enter a secret word he can 
do so by RUN, BREAK, Type 8«"ABCDE. GOTO 740, ENTER. 

For 4K, lines 50 and 60 are changed and the following 
are deleted: 100, 250-410, 491, 495, °50, and 660. 
The CLEAR memory is 332 for 4K and 11171 for l6K. 

Yours very truly, 



'12/19/78 

'JOTTO WITH OPTIONAL STANDARD OPENING 

'0 M. EVANS, 9886 AMBER TRAIL, SUN CITY, AZ 85351 

'<682> 933-1616 

'NEXT LINE SHOWS 16K CLEAR MEM 

'11171 

79 CLS 

80 GOTO 590 

199 ' 

118 ' 



18 
29 

39 
49 
58 

68 



ADD NEW DATA WORDS AS DESIRED 
LAST DATA LINE MUST BE 499 DATA "" 
129 DATA HORSE, FLASK, PLUMP, SLUMP, LYMPH, LAMPS, LUMPY, WHALE, FLING 
139 DATA STAIR, LEAST, FEAST, YOLKS, PACES, FIGHT, NEVER, EVERY, SEVEN 
149 DATA GHOST, BLAND, WIVES, XRAYS, OTHER, RUSTY, BLANK, WASTE, WORDS 
159 DATA BASIC, LULLS, NYMPH, SHALE, CLUNG, SLANG, GROAN, WRONG, GROWN 
169 DATA AGAIN, WORTH, GAMES, SCORE, THOSE, THESE, GRIPE, UTTER, INCUR 
179 DATA REARM, SUEDE, RIGOR, CLEAN, SINGE, SOLAR, BURLY, SORRY, BOOTY 
189 DATA FENCE, LUNGE, OWNED, NOVEL, AFOOT, FOYER, TAKEN, CEASE, CHOK€ 
199 DATA MURKY, CHIDE, LOOSE, MOLDY, CHIME, EIGHT, TOKEN, WIPED, LUSTY 
299 DATA BLAZE, DEITY, AISLE, FORTE, CREEK, GLADE, BLADE, UPPER, THREE 
219 DATA YOUNG, CROWN, LI THE, HOUSE, OPIUM, ONION, FRAME, FLAME, CLOTH 

228 DATA TOXIC, NEWLY, A8YSS, LATHE, ACRID, SHAKY, ORBIT, FABLE, CIVIL 
239 DATA EMPTY, LOUSY, MOUSE, PLUSH, FLOOD, PLAYS, CHILD, NEWSY, FORTY 
249 DATA PILOT, AMUSE, HAVOC, OPINE, HARPY, VIRUS, AUDIT, CHESS, APRON 
259 DATA MERCY, ABIDE, AGING, BRAVE, WHITE, BLACK, GREEN, LEMON, FIORD 
269 DATA ELUDE, SWASH, AWASH, YACHT, CLAIM, FRUIT, EAGLE, GLOAT, STOKE 
279 DATA ALLOT, FROZE, SOAPY, DINER, SYNOD, QUEST, ALTAR, AWAKE, AWOKE 
289 DATA MYTHS, HELIX, RAZOR, EXILE, STEAL, STALE, SLATE, BRING, UNCLE 
299 DATA TALES, STEAM, TEAMS, MEATS, TAMES, MATES, PEALS, PALES, PLEAS 
399 DATA LAPSE, LEAPS, RATES, TEARS, STARE, ASTER, TARES, TIMES, SMITE 
319 DATA MITES, ITEMS, HEARS, SHARE, SHEAR, HARES, WIDER, WIRED, WEIRD 

229 DATA ARROW, EASES, JEWEL, VIVID, TEXTS, EXERT, LATEX, FIRST, NINTH 
339 DATA OASIS, DOPEY, JULEP, PAPAL, PEEVE, DISCS, MAMMA, QUEUE, TIARA 
349 DATA ERROR, SEEPS, SOLOS, REFER, TEETH, CUBIC, DIODE, VERVE, ROTOR 
358 DATA RADAR, ABACK, SEXES, EXIST, EXITS, RATIO, SASSY, TOPIC, QUEEN 
369 DATA OXIDE, EQUAL, LEVEL, EXCEL, EPOCH, LOCAL, SALAD, PATIO, LEVEE 
378 DATA PROPS, LADLE, ALONG, MOTTO, COCOA, OFTEN, TESTS, PSALM, PARRY 
389 DATA RADIO, MINUS, GIVEN, PAPER, HANDS, STAND, VOICE, TOWER, WROTE 

399 DATA SLOOP, POOLS, LOOPS, SORES, ROSES, MARCH, CHARM, SOUTH, SHOUT 

400 DATA NAMES, MEANS, POSTS, STOPS, SPOTS, SNAIL, NAILS, RITES, TIRES 
419 DATA TIERS, SWORD, SKILL, KILLS, PASTE, TAPES, SLAVE, SALVE, KITES 

499 DATA"" 

491 ' 

495 ' INSTRUCTIONS 

500 PRINTTAB<22)"J OTTO 
519 PRINT 

529 PRINT" THIS PROGRAM SIMULATES THE GAME JOTTO, COPYRIGHTED 
539 PR I NT "1956 BY THE JOTTO CORPORATION. THE COMPUTER SELECTS A 
548 PR I NT "SECRET 5-LETTER WORD AND YOU QUESS USING A SERIES 

559 PR I NT "OF TRIAL WORDS. THE COMPUTER TELLS YOU THE NUMBER OF JOTS IN 

560 PRINT-EACH TRIAL. JOTS ARE THE NUMBER OF LETTERS IN THE TRIAL WORD 
579 PR I NT "THAT ARE IN THE SECRET WORD. WHEN YOU GUESS SECRET WORD 

539 PR I NT "THE COMPUTER SAYS JOTTO. LETTERS DUPLICATED IN THE 

599 PR I NT "SECRET WORD COUNT ONLY AS ONE JOT UNLESS THE TRIAL WORD 

600 PR I NT "ALSO CONTAINS DUPLICATIONS. THE OBJECT OF THE GAME IS TO 
610 PRINT-FIND THE SECRET WORD WITH THE MINIMUM NUMBER OF TRIALS. 
628 PRINT 

638 PR I NT "TO GIVE UP ON SECRET WORD, TYPE XXXXX 

659 ' 
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668 " MAIN PROGRAM 

670 DEFINT H-N: DEFSTR S-U 

686 PRINT"PRESS 'ENTER' TO START THE GAME" 

698 ' ENTER KEY BREAKS ENDLESS DATA CHAIN AND THEREBY 

SELECTS THE SECRET WORD. 
708 TMNKEY* 
718 READ S 

720 L*LEN<S):IF L*0 THEN RESTORE GOTO 710 

730 IF INKEY*»"" THEN 710 .' NOTE NO SPACE BETWEEN QUOTES 
740 N»0:INPUT"DO YOU WANT A STANDARD OPENING? <V/N) 
742 ' H ■ TRIAL NUMBER 



A* 



745 'PRINT01010,S: 

746 ' 

749 CLS 

750 IF A*-"N" 
760 IF A$<>"V 
780 U-" AMEND* 
798 U-"BLAME' 
888 O-BLAND 1 
818 U-'FIGHT' 
828 U« "GHOST' 
838 U* "FOIST" 
848 PRINT00, 



THIS IS A TEST LINE 



THEN 840 

THEN 740 
: GOSUB 930 
GOSUB 938 
GOSUB 930 
: GOSUB 930 
: GOSUB 930 
: GOSUB 930 

"I HAVE A 5-LETTER SECRET WORD 
858 PRINT "TYPE A 5-LETTER TEST WORD 
868 INPUT U : PRINT08, CHR$<38) 
878 IF LEN<U)05 PRINT02S6+M*64 
888 ' 

898 G0SUB985 
980 GOTO 850 

905 IF S-U PRINT0192+M*64, M+l, U 
920 IF U*"XXXXX" THEN 1070 
930 H=8: 

S<I)«MID«(S, LI) 
U< J)=MID*<U, J, 1) 



5 LETTERS PLEASE! 



GOTO 858 



5 JOTS 



J T T 0":GOTO 1088 



TO 
TO 



'H=NUMBER OF JOTS 
NEXT 

NEXT 



948 FOR I»l 
958 FOR J-l 
968 FOR I«i TO 5 
978 FOR J»l TO 5 
980 IF S<I) O U<J) THEN 1828 
998 H=H+1 
1880 U<J>»" " 
1818 GOTO 1838 
1828 NEXT J 
1838 NEXT I 
1840 H-M+l 

1858 PRINT»128+M*64, H, U, Hi "JOTS" 
1060 RETURN 

1070 PRINT"MV WORD WAS "> S 

1888 PRINT" HIT ENTER FOR ANOTHER GAME 

; ; INPUT A*: CLS: GOTO 688 



MR. LLOYD, 

THIS PROGRAM WILL DISPLAY THE WORDS TO (THE 12 DAYS OF 
CHRISTMAS). YOU MAY WANT TO PUBLISH IT IN THE NEWSLETTER. 
I WOULD LIKE TO GET IN TOUCH WITH THE WRITER OF THE 
(TRS-80 JUKEBOX) AS IT WOUKD BE INTERESTING TO ADD THE MUSIC 
<VIA. AM RADIO) TO THIS PROGRAM. I THINK IT COULD BE DONE IN 
THE FOR-NEXT LOOPS AFTER EACH LINE OF WORDS. 

I APP0LIGI2E FOR NOT HAVING USED LPRINT'S IN MY LINES. 
THE ONLY CHANGE I CAN THINK OF TO LET IT RUN IN LEVEL 1 
MOULD BE TO REMOVE THE PRINT CHR*<23). 

KEEP UP THE GREAT WORK ON THE NEWSLETTER. 

DAVID P. KIMBEL 
RT 9, BOX 650 
FAVETTEVILLE, NC 28201 



ie x>0 
50 x»x+i 

55 CLS 

60 ONX GOSUB 71* 72. 73* 74, 75. 76, 77, 78, 79. 88, 81, 82 

65 GOTO180 

71 D$»"FIRST": RETURN 

72 D*-"SECQND": RETURN 

73 D*«"THIRD": RETURN 

74 D*="FOURTH": RETURN 

75 D$*"FIFTH": RETURN 

76 D*«"SIXTH": RETURN 

77 l*-"SEVENTH" : RETURN 

78 D»»"EIGHTH": RETURN 

79 D*»"NINETH": RETURN 
88 D$-"TENTH" RETURN 

81 D$»"ELEVENTH" RETURN 

82 D*»"THELVETH" : RETURN 

188 PRINT CHR$<23):PRINT"0N THE "iMi" DRY OF CHRISTMAS 
MY TRUE LOVE SENT TO ME" : F0RT*8T0148B : MEXTT 
185 FOR D»XT01 STEP-1 

118 OND GOSUB1880, 2088, 3888, 4888, 5888, 6888, 7888, 8888, 9888, 18888, 11888, 12800 
128 NEXT D 
808 GOT058 
988 STOP 

1808 IFXMTHEN PRINT • 
RND A PARTRIGE IN R PEAR TREE "ELSEPRINT" 
A PARTRIGE IN A PEAR TREE" 
1810 F0RT-8T0888:NEXTT 
1028 IFX>liaS:PRINTCHM<23):PRINT" 
ONE 

MORE 

TIME ! 
1825 FORT«0TO708:NEXTT 
1030 RETURN 
2888 PRINT" 

TWO TURTLE DOVES" :F0RT«8T0688:NEXTT: RETURN 
3888 PRINT" 

THREE FRENCH HENS" :F0RT=8T0688:NEXTT: RETURN 
4888 PRINT" 

FOUR CULLY BIRDS" : F0RT-8T0688 : HEXTT : RETURN 
5888 PRINT" 

FIVE GOLDEN RINGS" :FORT«8TO1480:NEXTT: RETURN 
6088 PRINT" 

SIX GEESE A-LAVING":FORT>8TO780:NEXTT: RETURN 
7888 PRINT" 

SEVEN SUANS A-SMimiNG":F0RT-8T0788:NEXTT: RETURN 
8888 PRINT" 

EIGHT MAIDS A-M ILK I NG":F0RT*8T07B8:NEXTT: RETURN 
9888 PRINT" 

NINE LADIES DANCING" :FORT«0TO700:NEXTT: RETURN 
10000 PRINT" 

TEN LORDS A-LEAPING":FORT«0TO700:NEXTT; RETURN 
11088 PRINT" 

ELEVEN PIPERS P I PEING":F0RT«8T0788:NEXTT: RETURN 
12888 PRINT- 
TWELVE DRUMMERS DRUMMING" : FORT«0TO788 : NEXTT : RETURN 
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Gentlemen: 

In one of your issue* (I think it was Vol. I No. 4) was a letter 
from a TRS-80 user who told of using a lowpass filter to help 
overcome difficulty in looding cassettes. 

The idea is good, but his suggested values for the capacitors may 
insert too much impedance in the audio output line from the CTR. 
I think he had suggested .01 mfd. 

Capacitors in series, as required in a T-format filter, have a 
total effective capacity of less than the value of any one of 
the series capacitors. In this instance the effective capacity 
would be .005 mfd. 
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The formula for capacitive reactance is X c = 

where X c is capacitive reactance in ohms 
6.28 is the same as 2 pi 
f is the frequency in Hertz 
C is the capacity in farads 

I built a lowpass filter, using your reader's schematic, but 
substituted capacitors having a value of 2.2 mfd each. The 
result is quite satisfactory. 

To give me sharper (vernier-type) adjustment on the audio output 
level I also inserted a 200 ohm pot in the line, with an oversized 
knob on it. Using an AM pocket radio resting on the cable 
between my keyboard unit and the expansion interface, I monitor 
the output from the cassette. I adjust the volume control on the 
CTR to the low point where the sound of the data transfer, as 
heard on the radio, begins to distort, and I note that position 
on the volume control knob. Next I adjust the control to the high 
point where the sound again begins to distort and note that position. 
I then re-set that control to a midpoint between the two positions 
where the distortion was noted. I then use my external 200 ohm 

pot to moke any fine-tuning adjustment of the level that may be 
necessary to get the tape to load. Try this method. You'll be 
surprised how many cassettes which may have been a problem to 
CLOAD may now be loaded with absolutely no difficulty. 



Sincerely, 
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COL J. WESLEY B. TAYLOR 

P. O. Box 439 1 
Wkhlta Falls, Texas 76308 



PS i used a double throw, double pole 
switch so I could switch the filter 
in or out of the circuit without 
having to unplug any cords. I 
mounted the filter, the switch and 
the 200 ohm level adjustment in a 
Radio Shack minibox, all foil-lined 
to eliminate any possible RF leakage, 
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Dear Bob -- 

A couple of errors seem to h-*ve crept Into my 3A3IC 
renumbering proa-ra-r (Newsletter, vol. 2, f 2 , p. 20) In 
the ©d i tin* process. Lines 390, ^00, and U10 should be 
combined Into a slr.trle line -- otherwise the program 
crashes, since PCKl-ar ^^8-9 In effect ieletes the rest of 
the program. Also, In this line (In U00 In the printed 
version), for "D«256*HH" read "D-2 56«HH". 

!•* be interested In seelno- '•otes In the Newftetter on the 
contents of Level II Reserved SAM locations — so far, I've 
discovered the following i 

1651+8-9 address of bottom of progra-a text 
16633-U " " " " simple variables 
16635-6 " • • ■ arrays 
16637-8 ■ • • " free -nemory 
16616-7 ■ " " ■ stack 
1654^-5 • " * " string space 
16561-2 " " top of string space (K&MOrfX Sl4£) 

16607-8 entry colnt for object tape loaded under SYSTEM 

16554-6 3ND (0) -- 16555 Is .-iAI.'DOK seed 

16722-868 vectors to Disk Saslc (L3) statements 

16429-31 vector to DOS (5000H) 

16512-25 binary/decimal conversion routine (self- 
altering code) 

I6688-93 holds converted declral number 

16435-7 vector to alternate K3 driver 

Does anyone know of a complete list? 

The following ROM subroutines -^ay cone in handyi .-tST 24D 
coTip^^es HL and D5 and sets flaars (A is altered). CALL 900D 
w«»its for KB lrput (ASCII value Is placed In A, other registers 
unaltered) . 

Sincerely, 

Ma 

H. Phelps Gates 

6 Crestwood Tr. Pk. - at. 4 

Chapel Hill NC 2751^ 

(9l9)-967-5l93 



CONVERSION SUBROUTINES 

BY 

THOMAS VI. DAVIS 



9999 END 



lOOOO ' DECIMAL TO HEX DEC*=* TO CONVERT 0-255 RETURNS HEX$ 

lOOlO Zl* = DEC/16: Z2fS« OFT« AND 15 

10O20 IF Zl*<in THEN Z I*=Z1**48 ELSE Zl*=Zl*+55 

10030 IF Z2*<in THEN Z2**Z2*+4fl ELSE Z2*=Z2* + 55 

1O040 HEX $=CHR $( 7. 1* )-fCHR$( Z2X) 

10050 RETURN 

10100 'HEX TO DECIMAL HEX$a* TO CONVERT OO-FF RETURNS DEC* 
10110 DfiC%=ASC(»lGHT?f!'EXS, 1 )) : IF DBC3>«65 THEN DEC* = DEC* 

-55 ELS* DEC%-DEC*.-48 
10120 ZSIxASCfMnSlHt-XS, ! . ) ) ) : IF 2*>«65 THEN Z* = Z*-55 ELSE 

Z*=Z*-4P 
10130 DEC%=DEC%'Z%' If, 
10140 RETURN 



10200 'DECIMAL TO OCTAL DF.C%=*» TO CONVERT 0-511 RETURNS 0CT$ 
10210 Zl*=DEC*/64: Z2*= ( DEC* AND S6)/ R: Z3* = DEC* AND 7 
10220 OCT$= RIGHT$(STR$(Z1*),1) ♦ R IGHT$( STR$( Z2*) , 1 ) ♦ 

RIGHT$(STR$(Z3*),1) 
1O230 RETURN 

1O300 'OCTAL TO DECIMAL OCT$=# TO ~ ON VERT n-777 RETURNS DECS 
10310 DEC*=VAL(RIGHT$(OCT$,l)) : OEC*=DEC**VAL(MID$(OCT$,2,1 ) ) 

♦8: DEC*=DEC*+VAL(MI0$(OCT$,l ,1 ) )«64 
10320 RETURN 

Dear Fellow Users: 

I have just recently purchased i I.pvel II 4k TRS-80 and have had 
a problem that T think you should know ah?ut. It seems that 
something is wrong about the way the 4k chips (MCM6604) initilize 
and the READ statement doesn't work. It doesn't advance the 
READ pointer and reads the 1st data item over and over. 

There are two fixes for this: 

1. Software- -When you power up do a POKE 16553, 255. 

2. Hardware—Replace Bit 7 (chin Z13) with 3 Mostek MK4015. 

I don't know why this fixes it but thats what the Radio Shack 
Repair Center did and it works. (MUST BE MAGIC!!) 

I need some help obtaining some info. Vhat ports are assigned to 
the printer and how is handshaking taken care of? Can wait states 
of longer than 1 msec be used in the TRS-80 without losing mem due 
to refresh? What port is assigned to cassette #2? Where can I 
get a schematic of the TRS-80 Expansion Interface unit? 

I am a computer technician with the US Navy and am interested in 
any hardware addition or modification to the TRS-80. Anyone who 
would like to communicate with me about hardware would be greatly 
appreciated. I am inclosing a group of subroutines I have written 
to convert from decimal «■*■ octal and from decimal *■♦ Hex. I 
use these in a memory inspect and change program. They only work 
for *'s of 0-255 DEC but the method can be used with larger #'s. 

My address is; 



T. W. Davis 
1227 Mesa Rd. 
Mare Island, CA 



94592 



THE BITPICKER'3 TOOLBOX 

3y Steve MacGregor, 3701 W Wether.;;' laid, Phoenix, Arizona 35029 

A fast way to generate an 8-bit random number is to use the two- 
byte Instruction LD A, R (ED5? r.ex'. Caution Is advised, however. 
If you use this many times without some random-length delay, such 
as waiting for an operator response, vou can. get a non-random 
sequence. 
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THE BITPICKER 



TOOLBOX 



By Steve MacGregor, 3701 W Wethersfield, Phoenix, Arizona 85029 

On most computers with both logical and arithmetic shifts in 
their Instruction sets, an arithmetic left shift differs from a 
logical left shift only in the effect upon the condition flags: 
the arithmetic shift should set the "overflow" flag if the sign 
bit changed as a result of the shift. However, the SLA instruc- 
tions on the Z-80 are missnamed, since the P/V flag is set or 
reset according to the parity of the result. In case you ever 
need a genuine arithmetic shift, the instruction ADD A, A will do 
Just fine, although it works only on the A-reglsterT ITso, the 
instruction ADC A , A has the same effect, but in addition copies 
the C-flag to bit t'ero of the A-register. This feature is useful 
in linked shifts. 



HEHES A LISTING AND RUN CF AN INTERESTING LITTLE PROGRAM, 
NOT MY OWN, THAT PRINTS TO THE LINE PRINTER A SINE WAVE. 
USING AS ONE ELEMENT THE DATE AND AS THE NEXT THE TIME (**" 
DAY FrtCM THE CLOCK IN TRS-80. A REAL LINE PRINTERS TRUE 
THROUGHPUT CAN EASILY BE DETERMINED, BY SIMPLY LOOKING AT 
THE TIME TAKEN TO DO THE TA3 STOPS. IN THIS CASE, WITH A 
TELETYPE MACHINE AT 60 WORDS PER MINUTE, THE THROUGHPUT 
IS RATHER HUMOUROUS, AT BEST. 

THE FORMAT HAS BEEN DONE FCR 64 CHARACTERS, SO SIMPLY 
CHANGE THE "LPRINT"S TO "PRINT'S TO 00 IT ON THE DISPLAY. 
RAY, WA4AJY 
226 VALLEY RD. 
LAWRENCEVILLE, 6A. 30245 



XXX CONVENTIONS USED IN ASCII BAUDOT CONVERSIONS XXX 



SINCE THE BAUDOT MACHINE HAS NO "GREATER THAN", "LESS 
THAN", ETC. CHARACTERS, CERTAIN CPNVEVTIONS HAVE BECOME 
STANDARDIZED FOR USE 3ETWEEN THESE SY^ECL SETS. HIRE IS 
AN OUTLINE CHART OF THOSE CONVENTIONS; 



XX ASCII XX 
GREATER THAN 
LESS THAN 
EQUALS 
PLUS SIGN 
ASTERISK 



XX BAUDOT XX 
GT 
LT 
EQ 

AMPERSAND 
X (DENOTES MULTIPLY) 



AS ONE BECOMES FAMILIAR WITH THESE SUBSTITUTIONS, COM- 
PUTER CODING IS HO HARDER TC READ THAN WITH THE OTHER 
CHARACTER SET, BUT MAY REQUIRE SOME GETTING USED TO. 
110 FOR T !1 TO 40 STEP. 25 
120 A EQ !t!T(26 d ^5 X SIH(T)) 
130 LPRINT TA3(A); 
140 IF B EQ 1 THEN 130 
150 LPRINT LFFTS(TIME?,S) 
160 3 EQ 1 
170 GOTO 200 

180 LPRINT RIGHTSC TIMES, S) 
190 3 EQ 
200 NEXT 
210 GOTO 110 



02/04/79 

19:58:39 

02/04/79 

19:58:56 

02/04/79 
19x59:17 
02/04/79 
19:59:33 
02/04/79 
19:59:58 
02/04/79 
20:00:14 
02/04/79 
20:00:27 
02/04/79 
20:00:36 
02/04/79 
20:00:41 
02/04/79 
20:00:45 
02/04/79 
20:00:50 

02/04/79 

20:00:57 

02/04/79 

20:01:09 

02/04/79 

20:01:24 

02/04/79 

20:01:43 
02/04/79 
20:02:04 
02/04/79 
20:02:25 
02/04/79 
20:02:44 
02/04/79 
20:02:59 
02/04/79 
20:03:10 
02/04/79 
20:03:17 
02/04/79 
20:03:21 
02/04/79 
20:03:25 
02/04/79 
20:03:31 

02/04/79 

20:03:40 

. 02/04/79 

20:03:53 
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HI GORDON, 

APPRECIATE VOUR USERS GROUP-KEEP UP THE GOOD MORK. 

COPV OF LETTER SENT DIRECT TO HIH FVI 

TO DON FIELDING (PAGE H VOLUME 1 ISSUE 10) 



CENTRONIX PLUG 



1 

19 
2 
26 

- 

21 
4 
22 

23 

6 

24 

7 

25 

8 

26 

9 

27 

10 

28 
11 

29 

12 

38 
13 

31 

14 
32 

13 
33 
16 
34 

1? 
35 



TRS-88 IFC DESCRIPTION 
LINE PRINTER DATA STROBE 

LO FOR 1. 5MS PER DATA WORD 

1 
2 
3 
4 
5 
6 
7 



GND 

DATA 0L.5.B. 

GND 

Dl 

GND 

D2 

8 GND 

9 D3 
18 GND 

11 D4 

12 GND 

13 DS 

14 GND 
13 D6 

16 GND 

17 D7 MSB 

18 GND 

19 N/C 
28 GND 

21 BUSY TO IFC LO-READV TO PRINT 

HI -BUSY-HOLD 

22 GND 

23 OUT OF PAPER LO-READV 

HI-TROUBLE-MAIT 

24 GND 

23 UNIT SELECT HI-UNIT SELECTED-OK 
LO-NAIT 

26 PRIME *3V THRU 4. 7K0HM RESISTOR 

27 GND 

28 FAULT HI -OK 

LO-TROUBLE-HAIT 

29 NOT CONN 
38 N/C 

31 GND 

32 N/C 

33 GND 

34 GND 



HHEN TRS-88 IS OUT OF DATA IT SENDS (HOLDS) AT ASCII FOR CARRIAGE RETURN. 

IT SENDS NO LINE FEES COMMANDS SO DATA WORD SHOULDBE TAPED (DECODED) 

FOR CARRIAGE RETURN-LINE FEED. 

I AM CURRENTLY INTERRFACING TO AN AMPEREX (SURPLOS) 

28 CHARACTER DOT MATRIX PRINTER . . AFTER WHICH I EXPECT TO PROGRESS TO 

A FRIDEN FLEXOURITER. 

ENCLOSED IS A SAMPLE OF AMPEREX UNIT. 

PAT CLINCH 

3318 TUSCARAHAS RD. 

BETHESDA, MD 28816 



I CONTINUE TO GET A LOT CF IPWIRIES INTO IKS USE OF 
BAUDOT TELETYPE MACK IKES, MPD^L 15, 23, 19 ETC. KITH 
THE TRS-30. I A v USING A *ODEL 23 AND THE RADIO SHACK 
EDT/ASM (WITH A PATCH) TO WRIT" WD EDIT THIS TEXT. I 
ALSO HAVE SOFTWARE TO ACTIVATE T«*S BASIC "LLIET" AND 
"LPRINT" COMVANDE TO BAUDOT MACHINES. A SHORT "SYST r M" 
TAPE LOAD AND T'.»C "POKES" WILL PUT THE BAUDOT MACUP'E ON 
LINE FROM BASIC JUST AS THOlIfiH IT WERE A CENTRONICS, 
WHICH IS WHAT THE COMPUTER THINKS IT IS. I HAVE THE TAPE 
PUNCH AND HEAD FEATURE ON NY 23 WHICH ALLOWS THE TRS-30 
TO PUNCH OUT "LLIST" COMMANDS TO PAGE AND TAPE FOR REAL 
SECURITY ON THOSE "I DONT WANT TO GO THROUGH THAT AGAIN" 
PROGRAMS. THE SOFTWARE THAT WORKS WITH THE EDT/ASM ALSO 
MAKES A DIRECT PATCH FOR IT TO ANSWER THE "H" AND "T" 
COMMANDS JUST AS IF IT WERE A LINE PRINTER. PRETTY NICE 
FOR A $100.00 MACHINE. FOR THE HAMS, THIS ALLOWS US TO 
USE THE RADIO AS A GIANT "TIMESHARE** NETWORK, AND MAKES 
POSSIBLE DIRECT CORE DUMPS FROM THE TRS-30, EITHER IN 
BASIC OR ASSSEM3LY SOURCE CODE STRAIGHT ONTO THE AIR. 
I ALSO HAVE THE PATCH TO MAKE THE RSM SERIES PRINT OUT 
ALL THEIR COMMANDS TO A BAUDOT MACHINE. THE MODIFIED 
RADIO SHACK EDT/ASM TAPE AND THIS SOFTWARE DRIVER MAKE A 
HIGHLY SOPHISTICATED TEXT EDITOR, RIVALING THE BETTER 
COMMERCIAL SYSTEMS IN EVERYTHING BUT PRINTER SPEED. 
THE SOFTWARE REQUIRES A DECODED PORT, DECIMAL 15 AND 
BIT NUMBER 0, ONLY. I CAN SUPPLY A BOX TO SUIT THIS 
NEED WITH DOUBLE OPTO- ISOLATORS AND TWO SOFTWARE CON- 
TROLLED RELAYS FOR GENERAL CONTROL APPLICATONS. THIS BOX 
BOTH READS FROM AND WRITES TO THE TRS-80 AT PORT 15. 
INQUIRIES ARE ANSWERED PROMPTLY, OR WRITE ME FOR WHAT 
HELP YOU MAY NEED IN THIS REGARD. 

RAY, WA4AJY 
226 VALLEY RD. 
LAWRENCEVILLE.GA. 30245 



180 REM ♦ TRS-88 ANIMATION - BY RON MOEHLIS • 
lit DIM X(42),Y(42): RANDOM 

128 FOR 1=1 TO 14: READ X(I>, Y(I) NEXT I 

138 CLSFOR 1=1 TO 128 :SET(I,16>: NEXT I 

148 FOR 1-1 TO 128 : SET (I, 37): NEXT I 

159 FOR I»16 TO 37:SET(12L I):NEXT I 

168 PRINTf217, -TURTLE RACE" 

178 FOR M TO 14:SET(X(I),V(I)):NEXT I 

188 FOR J«i TO 2:F0R I-i TO 14 

198 K"M4*J:X(K)-X(I):V(K>-Y(I>*J*6 

288 SET(X(K),V(K)):NEXT I, J 
218 FOR I«l TO 1989: NEXT I 
228 R-RND(3):R»R-l:T»i4*R 

238 K-i+T : SET(X(K>, V(K) ) : SET(X(K»3>, Y(K*3> ) 

248 FOR I-K TO 4+I:RESET(X(I)»Y(I»:NEXT I 

258 FOR I-K T0 4tT:X(I)«X(I)*l:SET(X(I),V(I)):NEXT I 

269 FOR I«5*T TO 8+T:X(I)*X(I>«l:SET(X(I>.Y(I»:NEXT I 

278 RESET(X(9*T),Y(9*T)>:RESET(X(12+T>,V(12*T» 

289 FOR I-9+T TO 14*T:X(I)«X(I)*1:SET(X(I>, V(I)):NEXT I 
299 IF X(14*T>«128 THEN 318 

389 GOTO 228 

318 PRINT9936, "HINNER HAS t";R*l 

329 RESTORE:FOR 1*1 TO 3080 NEXT I: GOTO 129 

339 DATA 1,19,1,28,1,21,1,22,2,28.2,21,3,20 

348 DAT! 3, 21, 4, 19, 4, 28, 4, 21, 4, 22, 5, 28, 3, 21 
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Sheldon Kaufman 
910 V. Kla St. 
Whoa ton, 111. 60187 



I have written a program and aa submitting it to the TRS-80 Ueera 
Croup Newsletter which coaputes moving averages of stock market prices. 
This program, NOVINCAVE, uses the closing weekly prices of 3 to 5 
stocks, stores them in the array A(l), and coaputea three different 
aoTing averagea for each stock. A aoving average la simply the average 
price over a definite time period) it "moves" along with the calendar. 
Obvlouely this Newaletter la not the place to discuss how theae 
averagea can be uaed in stock market analyala — you should read a 
text on that subject. The uae of a coaputer to create a data base and 
to perform repetitive calculations la alaoat eaaential In this field. 

In ay program MOYINGAVE the time periods for averaging are aet 
by the variables H, S, and T in line 100 to 5, 15. end 40 weeks. 
Alao in line 100 the nuaber of stock* is aet by P (=5) end the aaxi- 
aua nuaber of weeka of data by Q (=»72). Theae aay be changed aa 
desired by the user. Since I have a Level I TRS-80, the program la 
written in Level I BISIC, but I have uaed only a few abbreviations, 
naaely P. for PRINT, P.A. for PRINT AT, and Df. for INHJT, to make 
it sore understandable and easier to convert to Level II. 

The data structure la aa followat A(^), A(l), and A (2) contain 
the month, day, and year of the first entry! A (3) and A (4) are 
reserved for possible future uae. The stock prices are stored in 
A(5) - A(364), and A (365) - A(369) la a buffer area. For * stocks 
the prices of Stock 1 are stored in A (5), A (10), ... k{jbf), and 
those of Stock 2 in A (6) , A(ll), etc. If only 4 or 3 stocks are 
uaed, the intervals are 4 and 3. respectively. To start out, store 
the date of the first week in A(0) - A(2), aet A(3) - A(364) equal 
to sero, and RUN. The coaputer asks "ADD MORE?", you type "Y" , 
and then enter the data aa Indicated. 

The names of the stocks are specified in the DATA atateaent, 
line 90 (up to 9 letters each). Line 100 sets the control variables 
P, Q, R, S, T. Lines 110-210 list the entire aet of stock prices 
for a quick review (you can "freeze" the display using the f key 
during this listing). Lines 220-470 add new data to the array 1 
when the array la filled the latest week pushes out the oldest week 
and updates the starting date in A(**) - A (2). (Lines 410-470). 
When all new data has been added a sero entry exlta to the compu- 
tation section, lines 500-790. The date, price, and 3 averagea for 
each stock are liated, either the aoat recent 13 weeka (one screen- 
ful) or everything possible (starting at week 40). The program 
could be changed to a dally basis by changing the subroutine start- 
ing at line 800, but reaeaber to skip weekends and holidays. 



A special routine handles stock splits (lines 310-390). All prices 
for that stock are adjusted to the new shares in order to coapute the 
averages properly. To do this, you enter instead of new weekly prices 
the following quantities: -L (a flag to indicate a stock split) 1 the 
nuaber of the stock being split (1-5; I end the split factor (2 for a 
2-for-l split, 1.5 for a 3-for-2 split, etc.). The coaputer then prints 
a aessage telling you what it proposes to do (line 350) and asks 
approval. Typing "N" cancels the command, in case of error. 



Originally I saved the data on cassette by using the PRINT# 
command, for example 

H0 FOR I - i TO 72 1 J ■ 5«I 

llljf PRI»T# A(j)t-,",A(j*l),","»A(j+2)|-,-|A(J+3),",-,A(j44) 

1120 NEXT I 

The data would then be read the following week ualng INRJT# in a 
similar loop. However, this takes about 7 ainutea for reading and 
another 7 mlnutee for writing, be cause of the Inefficient way these 
tape operations store data, with each record having a long tape leader. 
For example, If you are following 50 stocks (not a very large nuaber) 
you spend 140 ainutee Just watching the tape aove' Even with Level II 
with twice the tape speed, that la too long a time. 

I have solved thla problea by writing a aachlne language program 
to write and read the entire array in one large record, similar to 
the way the CSAVE coamand writes a prograa. Ualng this program it 
only takes 40 seconds to write or read 365 data items, about ten tiaes 
f aster than before. This prograa, which I call MEMLUMP. la written 
for Level I and loads using CLOAD (you don't need T-BUC). It will 
write to cassette any or all of the memory, starting from A (/I). la 
fact it can write the current values of all the variables A-Z, the 
string variables A$ and Bfc, and Itself aa well.' The resulting taps 
can be read either by KBMDUMP, or if you prefer, simply ualng CLOAD. 
If any members of the Users Group would like this prograa, I will send 
them a caaaette with NEWJUHP on both aides for $5.00. 

For an additional $2.00 I will include the MOVINGAVE prograa aa 
listed here, and also in the abbreviated version. The latter has all 
RBf statements omitted, uaea all legal abbreviations in Level I and 
other tricks to aqueeae it into the minimum memory ao that it runs 
in a 4JC system (like mine) with space for 72 weeka X 5 stocks. 
Complete instructions will be Included. 

P.S. My MOVINGAVB prograa Just does the calculations — if 
you lose money on the stock market, don't blame me.' 



5 REM *** MOVINGAVE *** 

6 REM *** fl PROGRAM TO COMPUTE MOVING AVERAGES OF 3-5 STOCKS 

7 REM COPYRIGHT 1973, SHELDON KAUFMAN 

3 REM 919 H. ELM ST. , WHEATON, IL 60187. 

18 REM DATA STATEMENT 99 MRS NfiMES OF STOCKS. 

39 REM STATEMENT 199 SETS VALUES OF VARIABLES P, Q, R, S, T 

49 REM VARIABLES P=N0. OF STOCKS; 0»MAX. NO. OF ENTRIES 

59 REM R, S, T ■ 3 AVERAGING TIMES 

69 REM USES WEEKLV STOCK PRICES 

79 REM FOR LEVEL 1 BASIC CHANGE ALL 9 TO AT 

99 DATA STOCK 1, STOCK 2, STOCK 3, STOCK 4, STOCK 5 

199 P=5: 0=72: R»5 : S«15 T-40 

119 CLS V»l: N=9 E-INT<59/P> 

130 GOSUB 1999: G«64 : L«5 . G0SUB 959 

149 FOR K*l TO Q: IF A<L)«9 THEN 219 

159 GOSUB 1959 F=E+2: FOR Z-9 TO P-i 

169 PRINTTAB(F), A-'L+Z); 

179 F=F+E: NEXT Z: PRINTTABC63) 

189 IF G»969 GOSUB 950 

199 L=L+P: G=G+64: IF G>969 G=960 

299 GOSUB 899 NEXT K 

219 M=<L-5)/P PRINTPG, " ". 

INPUT"RDD M0RP";X: IF X«N THEN 599 



229 

239 REM ADD MORE DATA. 9 TO EXIT 
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240 
258 
266 
270 
298 
290 
380 
205 
310 
220 
220 
340 
350 
360 
370 
380 
296 

400 

410 
420 
420 
450 
460 
470 

500 

505 
518 
520 
559 
560 
570 
5S0 
590 
610 
620 
640 
650 
660 
670 
680 
690 
700 
718 
720 
730 
740 
750 
760 
770 
780 
790 
800 
805 
810 
820 
830 
340 
858 
868 
870 
888 
890 

900 

910 



IF G>896 GOSUB 950 G-896 
PRINT9G, " M GOSUB 1050: F=G+E+2 
FOR Z=0 TO P-l: PRINT0F, M "; 
INPUTACL+Z) : IF A<L>=0 THEN 500 
IF <Z=2>*<R<L)<:0) THEN 310 
F=F+E: NEXT Z: G=G+64 

IF G>896 PRINT9G, " ": G=896: GOSUB 950 
GOTO 400 

REM ADJUST FOR STOCK SPLIT 
B=A<L+1>-1: C=A<L+2> RESTORE 
FOR D=0 TO B: REfiO A* . NEXT D 
FOR D=L TO L+4: A<D)=0: NEXT D: PRINT9G, " " 
PRINT9G, " ADJUSTING M ; A$; " FOR"; C; "FOR 1 SPLIT. OK"; 
INPUTX: IF X=N THEN 290 

B=B+5: FOR J=l TO M: A<B>=INT<100*A<B VCV100 
B=B+P: NEXT J 

PRINT»G GOSUB 1050: GOTO 250 

IF L<P*Q+P M=<L-5)/P+l: L=L+P: GOSUB 800. GOTO 258 
REM PUSH NEW DATA ONTO ARRAY, ADVANCE STRRT DRTE 1 WEEK. 
FOR K=P TO L-l: R(K)=fl<K+P> : NEXT K 
FOR K=L TO L+P-i: fl<K)=0: NEXT K 
B»U: C=V: D=W: U=fi<0> : V»fl<l> : W=A<2) 
GOSUB 800: fl(0)=U: R<1)=V: R(2)=W 
U=B: V=C: W=D : GOSUB 808: GOTO 250 
REM COMPUTE RVERRGES. H=NO. OF LINES TO PRINT. 
REM M=NO OF WEEKS IN ARRAY, E=NO OF TIMES DATE ADVANCES. 
INPUT"LAST 12 WEEKS <1> OR ALL<2)";Z: H=M-T+1 : RESTOPE 
IF H<1 PRINT" INSUFFICIENT DATA": END 
IF Z=2 E=M-Q+T-1. L=0. GOTO 580 
L=M-T-12: IF L<0 L=0 
E=M-13 IF H>13 H=13 
IF E<T-1 E=T-1 
FOR K=8 TO P-l: CLS 



C=0- GOSUB 1808 
READ A$ PRINTTAB<20>, A$ 



FOR 1=1 TO T: C=C+A<J> 
J=J-S*P: FOR 1=1 TO S 
j=j-r*P: FOR 1=1 TO R: 
F=A<J-P) FOR 1=1 TO H 



R=0: B=0: 

for 1=1 to e: gosub 888. next i 

printl?67, "week"; tab(20); "price"; tab<29>, r; "wk"; 

printtrbc39), s; "wk"; tabc49); t, "wk" 

0-126: J=l*p+K+5 

J=J+P: NEXT I 
B-B+FKJ): J=J+P NEXT I 
R=fl+fl<J): J=J+P: NEXT I 
GOSUB 1858 

PRINTTAB<19); F; TA8<29>, INT<100*R/R)/100; 

PRINTTA8<39>, INT<100*B/S>/100; TRB(49), INT<188*C/T)/180 

F=ACJ): R=R+F-R<J-R*P) 

B=B+F-R<J-S*P) : C=C+F-A< J-T*P> 

GOSUB 880: J= J+P : G=G+64 : IF <G<968>+< I=H> THEN 760 

PRINT0955, " "; : INPUTB*: G=960 : PRINT0955, " " 

NEXT I IF K=P-1 THEN 780 

INPUT"N£XT STOCK"; X: IF X=N THEN 790 

NEXT K: INPUT "FINISHED"; X : IF X=N THEN 500 

END 

REM SUBROUTINE TO RDVRNCE DATE 1 WEEK 

REM U. V. W = MONTH. DATE, VEAR 

V«V+7: IF U=2 THEN 870 

IF <U-4)+<U=6>+<U«9>+<U=li> THEN 858 

IF V<32 THEN 920 

V=V-31: U=U+1: GOTO 920 

IF V<31 THEN 928 

V=V-30 U=U+1: GOTO 920 

IF W-4*INT<W/4)=0 THEN 900 

IF V<29 RETURN 

V-V-28: U«3: RETURN 

IF V<C30 RETURN 

V=V-29: U=3: RETURN 



920 IF U<13 RETURN 

930 U=l: W-W+l: RETURN 

950 REM SUBROUTINE TO PRINT STOCK NAMES 

960 RESTORE: F=E+3 : PRINT00, " WEEK"; 

970 FOR Z=l TO P: READ A$ : PRINTTAB<F>; A*; 

980 F=F+E: NEXT Z: RETURN 

1800 REM SUBROUTINE TO SET START DATE 

1010 U=A<0): V=A<1): W*A<2> : RETURN 

1050 REM SUBROUTINE TO PRINT DATE 

1060 PRINT9G, U; : PRINT9G+3, V"; : PRINT0G+4, V; 

1070 PRINTl?G+7, "/"; : PRINT9G+8, W; 

1080 RETURN 



FOUR MEW T7TILITY PROGRAMS FOR LEVEL II TRS-80'S 
LTNKUP . . . .A machine language oroaram that inhibits line 
merges and allows any number of BASIC Drocrrams to be loaded, 
one after the other. KeeD a separate tape of subroutines; 
load and use them with a prooram allready in the machine. 
Put several games on one tape and run them all without 

reloadina A very useful utility $14.95 

hmm^w . . . .As you orobably susoected, the command NEW really 
dosen't wipe out your whole program. This short machine 
language program recalculates address links and resets 
Dointers so that your Droaram is restored and rises aaain 

from the ashes live the lecrendary Phoenix $9.95 

NFWJUM . . .Changes line numbers within your basic Drogram and 
makes it look like you did it riaht the first time. Makes 
nice even increments betwen line numbers and renumbers your 
QOSUB and GOTO statements at the same time. This little 
bugger will even catch an oy ERROR GOTO statement and put in 

the new line number, ''seful with LINKUP above $9.95 

4 BASF . . . . This BASIC prorrram will convert the 5 dicrit number 
that you inout in Hex, Decimal, Octal or Binary into the 
equivalent value in the other three bases. Use with LINKUP 
as a subroutine $4.95 

All Droarams are LEVEL II 4K or 16K cassette tape. 1 6K 
versions of the machine language programs will be shinped 
unless you tell us otherwise. Sorry, they don't work in 
LEV^L I. Please include $1.50 for postage and handling. 
Texas residents add 6^ state tax. If you ve read this far, 
you lucky devil, you can save almost 10 bucks. 
Order all four proarams for only $29.95 

Abcor Inc. 

P.O. box 5B216 

Houston, TX. 77058 



(FROM PAGE 22) 

193 PRINTf35fcSTRING$<J6,32) 

194 RETURN 

195 REM ** VIDEO DISPLAY SUBROUTINE ** 

196 PRINT9593,Dfl*;CHR*<94);LR;ST*;CHR«<93> 

197 PRINT9657,NA* 

198 PRINT8721, AD* 

199 PRINT3785,CT*;ST*;ZP* 
208 RETURN 

288 REM ** RECORD I INPUT SUBROUTINE ** 

209 PRINTW.92, 

218 PRINT "INPUT THE LR • FOR THE FILE YOU ARE WORKING ON *; 

211 INPUT LR __ M 

2i2 RETURN TRS * 88 USERS GR0UP " NEWSLETTER - 
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281 REM ** LABEL-LPRINT SUBROUTINE ** 
202 LPRINT Dfi*;CHR*<91);LRjST*;CHR*(93> 

283 LPRINT NA* 

284 LPRINT AD* 

295 LPRINT CT*; ST$; ZP* 

296 LPRINT CHR*<138).CHR*<i38) 
207 RETURN 



